home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / asxsrc.arc / LKDATA.C < prev    next >
C/C++ Source or Header  |  1989-08-25  |  3KB  |  95 lines
  1. /* lkdata.c */
  2.  
  3. /*
  4.  * (C) Copyright 1989
  5.  * All Rights Reserved
  6.  *
  7.  * Alan R. Baldwin
  8.  * 721 Berkeley St.
  9.  * Kent, Ohio  44240
  10.  */
  11.  
  12. #include <stdio.h>
  13. #include "aslink.h"
  14.  
  15. int    inpfil;
  16. int    cfile;
  17. int    radix;
  18. int    line;
  19. int    page;
  20. int    lop;
  21. int    pass;
  22. int    oflag;
  23. int    mflag;
  24. int    xflag;
  25. int    pflag;
  26. int    hilo;
  27. char    *ip;
  28. char    ib[NINPUT];
  29.  
  30. char    *_abs_    = { ".  .ABS." };
  31.  
  32. int    rtcnt;
  33. int    rtval[NTXT];
  34.  
  35. struct    sym    *symhash[NHASH];
  36. struct    lfile    *startp;
  37. struct    lfile    *linkp;
  38. struct    lfile    *lfp;
  39. struct    lfile    *filep;
  40. struct    lfile    *cfp;
  41. struct    head    *headp;
  42. struct    head    *hp;
  43. struct    area    *areap;
  44. struct    area    *ap;
  45. struct    areax    *axp;
  46. struct    base    *basep;
  47. struct    base    *bsp;
  48. struct    globl    *globlp;
  49. struct    globl    *gsp;
  50.  
  51. FILE    *sfp;
  52. FILE    *ofp;
  53. FILE    *mfp;
  54.  
  55. char    ctype[128] = {
  56.     ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
  57.     ILL,    SPACE,    ILL,    ILL,    SPACE,    ILL,    ILL,    ILL,
  58.     ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
  59.     ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
  60.     SPACE,    ETC,    ETC,    ETC,    LETTER,    BINOP,    BINOP,    ETC,
  61.     ETC,    ETC,    BINOP,    BINOP,    ETC,    BINOP,    LETTER,    BINOP,
  62.     DIGIT,    DIGIT,    DIGIT,    DIGIT,    DIGIT,    DIGIT,    DIGIT,    DIGIT,
  63.     DIGIT,    DIGIT,    ETC,    ETC,    BINOP,    ETC,    BINOP,    ETC,
  64.     ETC,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  65.     LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  66.     LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  67.     LETTER,    LETTER,    LETTER,    ETC,    ETC,    ETC,    BINOP,    LETTER,
  68.     ETC,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  69.     LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  70.     LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  71.     LETTER,    LETTER,    LETTER,    ETC,    BINOP,    ETC,    ETC,    ETC
  72. };
  73.  
  74. #if    CASE_SENSITIVE
  75. #else
  76. char    ccase[128] = {
  77.     '\000',    '\001',    '\002',    '\003',    '\004',    '\005',    '\006',    '\007',
  78.     '\010',    '\011',    '\012',    '\013',    '\014',    '\015',    '\016',    '\017',
  79.     '\020',    '\021',    '\022',    '\023',    '\024',    '\025',    '\026',    '\027',
  80.     '\030',    '\031',    '\032',    '\033',    '\034',    '\035',    '\036',    '\037',
  81.     '\040',    '\041',    '\042',    '\043',    '\044',    '\045',    '\046',    '\047',
  82.     '\050',    '\051',    '\052',    '\053',    '\054',    '\055',    '\056',    '\057',
  83.     '\060',    '\061',    '\062',    '\063',    '\064',    '\065',    '\066',    '\067',
  84.     '\070',    '\071',    '\072',    '\073',    '\074',    '\075',    '\076',    '\077',
  85.     '\100',    '\141',    '\142',    '\143',    '\144',    '\145',    '\146',    '\147',
  86.     '\150',    '\151',    '\152',    '\153',    '\154',    '\155',    '\156',    '\157',
  87.     '\160',    '\161',    '\162',    '\163',    '\164',    '\165',    '\166',    '\167',
  88.     '\170',    '\171',    '\172',    '\133',    '\134',    '\135',    '\136',    '\137',
  89.     '\140',    '\141',    '\142',    '\143',    '\144',    '\145',    '\146',    '\147',
  90.     '\150',    '\151',    '\152',    '\153',    '\154',    '\155',    '\156',    '\157',
  91.     '\160',    '\161',    '\162',    '\163',    '\164',    '\165',    '\166',    '\167',
  92.     '\170',    '\171',    '\172',    '\173',    '\174',    '\175',    '\176',    '\177'
  93. };    
  94. #endif
  95.